OLEParameter Class
Use to pass an OLE parameter.
Notes
Here is an example of the usage of the Value2D property.
Dim word as new WordApplication
Dim doc as WordDocument
Dim param as new OLEParameter
Dim pts(3, 1) As Variant
pts(0, 0) = 50
pts(0, 1) = 20
pts(1, 0) = 100
pts(1, 1) = 160
pts(2, 0) = 150
pts(2, 1) = 160
pts(3, 0) = 200
pts(3, 1) = 20
param.Type = OLEParameter.ParamTypeSingle
param.Value2D = pts
doc = word.Documents.Add
doc.Shapes.AddCurve param
word.Visible = True
Dim doc as WordDocument
Dim param as new OLEParameter
Dim pts(3, 1) As Variant
pts(0, 0) = 50
pts(0, 1) = 20
pts(1, 0) = 100
pts(1, 1) = 160
pts(2, 0) = 150
pts(2, 1) = 160
pts(3, 0) = 200
pts(3, 1) = 20
param.Type = OLEParameter.ParamTypeSingle
param.Value2D = pts
doc = word.Documents.Add
doc.Shapes.AddCurve param
word.Visible = True
See Also
ExcelApplication, OLEContainer, OLEObject, PowerPointApplication, WordApplication classes; OLEException error.